home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgverinf / MODULE1.BAS < prev    next >
BASIC Source File  |  1998-06-04  |  649b  |  27 lines
  1. Attribute VB_Name = "Module1"
  2. Function GetFilename(ByVal sFileSpec As String) As String
  3.    Dim sFile As String
  4.  
  5.    On Error Resume Next
  6.  
  7.    sFile = Reverse(sFileSpec)
  8.    If (InStr(sFile, "\") <> 0) Then
  9.       sFile = Left(sFile, InStr(sFile, "\") - 1)
  10.    ElseIf (InStr(sFile, ":") <> 0) Then
  11.       sFile = Left(sFile, InStr(sFile, ":") - 1)
  12.    End If
  13.    GetFilename = Reverse(sFile)
  14. End Function
  15.  
  16. Function Reverse(sOrig As String) As String
  17.    Dim sNew As String
  18.    Dim i As Integer
  19.  
  20.    On Error Resume Next
  21.    
  22.    For i = Len(sOrig) To 1 Step -1
  23.       sNew = sNew + Mid(sOrig, i, 1)
  24.    Next
  25.    Reverse = sNew
  26. End Function
  27.